﻿Imports System
Imports System.Data
Imports System.Data.OleDb
Module functions
    Public conn As New OleDb.OleDbConnection
    Public comm As New OleDb.OleDbCommand
    Public rdr As OleDb.OleDbDataReader
    Sub connect()
        'This connects to the database.
        If conn.State = ConnectionState.Open Then conn.Close()
        conn.ConnectionString = "Provider=microsoft.ace.oledb.12.0;data source=c:\helpdesk\helpdeskupdate.accdb"
        comm.Connection = conn
        conn.Open()

        ' conn.ConnectionString = "Provider=microsoft.ace.oledb.12.0;data source=c:\helpdesk\helpdeskupdate.accdb"
    End Sub
    Function CheckForAlphaCharacters(ByVal StringToCheck As String)
        For i = 0 To StringToCheck.Length - 1
            If Char.IsLetter(StringToCheck.Chars(i)) Then
                Return True
            End If
        Next
        Return False
    End Function

End Module
